XEQLBL FF MP_X // XEQLBL RE-BINDS THE PROGRAM NAME TO THE SOFTMENU
STO 01
ALPHA "MERSENNE PRIME X REV6" EXIT
RCL 01 ENTER 2^X DECR X PRIME?
GTO_SZ M1
LASTT 10 /
ALPHA CASEDN " s" EXIT
+
ALPHA "The program ran for " EXIT
X<>Y +
ALPHA "PRIME" EXIT
GTO M2

LBL M1
ALPHA "NO PRIME" EXIT

LBL M2
0 LINT DOTD DROPX
RETURN
